home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / datamaker dec (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 100 poke53280, 0:poke53281, 0:print"[147]";
  2. 101 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  3. 102 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  4. 103 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  5. 104 print"[172]                    [146][187]"
  6. 105 print"                      "
  7. 106 print"  DECIMAL[160]DATA[160]MAKER  "
  8. 107 print"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]        By     ";
  9. 108 print"     [160]"
  10. 109 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]    David Pankur";
  11. 110 print"st   [160]"
  12. 111 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
  13. 112 print"      "
  14. 113 print"[188]                    [146][190]"
  15. 114 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  16. 115 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  17. 116 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  18. 120 geta$:ifa$<>" "then120
  19. 200 poke53280, 0:poke53281, 0:print"[147]";
  20. 204 print"[206][207][212][201][195][197]:[155][207]nce[158][196]atamaker [196]ec[155]is"
  21. 205 print"activatedyouwillhaveto"
  22. 206 print"reboot[158]LOADSTAR[155]toreturn"
  23. 207 print"tothemenusystem."
  24. 208 print"[154][196]oyouwanttocontinue? ([217]/[206])"
  25. 210 geta$:ifa$="[217]"ora$="y"then300
  26. 230 ifa$="[206]"ora$="n"then400
  27. 250 goto 210
  28. 300 print"[147]":load"datamaker d",8
  29. 400 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  30. 401 ifer<>63 then print"[147]":end
  31. 405 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
  32. 410 print"run"
  33. 420 poke631,13:poke632,13:poke198,2:end
  34.